#!/usr/bin/perl

sub mysub {
        my $myp = shift;
        my $myq = shift;
        my $myr = shift;

        $myp =~ s/e/X/;
		print join ("|", $myp, $myq, $myr) . "\n";
        print join ("--",@_) . "\n";
}

$p = "testen";
mysub $p, "Hallo", "Welt", "x", "y", "z";
print $p . "\n";
